clng

The first thing we need to know isCInt Range-32,768 to 32,767.CLng Range-2,147,483,648 to 2,147,483,647.CInt and clng meaning:Can force an expression to be converted to a data typeCInt and clng The scope of processing data:CInt integer-32,768 to 32,767, fractional part rounded.CLng long-2,147,483,648 to 2,147,483,647, fractional part rounded.The so-called overflo

Meaning of cint and clng: You can forcibly convert an expression to a data type. Cint and clng: CInt Integer-32,768 to 32,767, rounded to the decimal part.CLng Long-2,147,483,648 to 2,147,483,647, rounded to the decimal part. Overflow refers to a code that is out of the scope of data processing. The following code processes data to prevent data overflow. You can check it for yourself: 'Check whether it is a

CLng Function Return expression, which has been convertedLongChild typeVariant. CLng(expression) ExpressionThe parameter is any valid expression.Description Generally, you can use the subtype Data Conversion Function to write code to show that the results of some operations should be expressed as specific data types rather than the default data types. For example, in the case of currency operations, single-

CInt and clng meaning: Can force an expression to be converted to a data type CInt and clng The scope of processing data: CInt integer-32,768 to 32,767, fractional part rounded.CLng long-2,147,483,648 to 2,147,483,647, fractional part rounded. The so-called overflow refers to the scope of processing data, the following code is to handle data to prevent overflow code, you can see for yourselves: ' Detec

CLng function Returns an expression that has been converted to a Variantof a Long subtype. CLng(expression) The expression parameter is any valid expression. Description Typically, you can use subtype data conversion functions to write code to show that the results of certain operations should be expressed as a specific data type, not as a default data type. For example, in the case of currency operations,

(Lnumberofwords-1)lbyteposition = 0Lbytecount = 0Do Until Lbytecount >= lmessagelengthLwordcount = lbytecount \ Bytes_to_a_wordlbyteposition = (lbytecount mod bytes_to_a_word) * bits_to_a_byteLwordarray (Lwordcount) = Lwordarray (Lwordcount) or LShift (ASC (Mid (smessage, Lbytecount + 1, 1)), lbyteposition)Lbytecount = Lbytecount + 1LoopLwordcount = lbytecount \ Bytes_to_a_wordlbyteposition = (lbytecount mod bytes_to_a_word) * bits_to_a_byteLwordarray (Lwordcount) = Lwordarray (Lwordcount) or L

) Private Sha256_m_lonbits (30) Private Sha256_m_l2power (30) Private Sha256_k (63) Private Sub Class_Initialize Md5_m_lonbits (0) = CLng (1) Md5_m_lonbits (1) = CLng (3) Md5_m_lonbits (2) = CLng (7) Md5_m_lonbits (3) = CLng (15) Md5_m_lonbits (4) = CLng (31) Md5_m

= lWordArrayEnd Function Private Function WordToHex (lValue)Dim lByteDim lCount For lCount = 0 To 3LByte = RShift (lValue, lCount * BITS_TO_A_BYTE) And m_lOnBits (BITS_TO_A_BYTE-1)WordToHex = WordToHex Right ("0" Hex (lByte), 2)NextEnd Function Public Function MD5 (sMessage)M_lOnBits (0) = CLng (1)M_lOnBits (1) = CLng (3)M_lOnBits (2) = CLng (7)M_lOnBits (3) =

\ BITS_TO_A_WORD)ReDim lWordArray (lNumberOfWords-1) LBytePosition = 0LByteCount = 0Do Until lByteCount> = lMessageLengthLWordCount = lByteCount \ BYTES_TO_A_WORDLBytePosition = (lByteCount Mod BYTES_TO_A_WORD) * BITS_TO_A_BYTELWordArray (lWordCount) = lWordArray (lWordCount) Or LShift (Asc (Mid (sMessage, lByteCount + 1, 1), lBytePosition)LByteCount = lByteCount + 1Loop LWordCount = lByteCount \ BYTES_TO_A_WORDLBytePosition = (lByteCount Mod BYTES_TO_A_WORD) * BITS_TO_A_BYTE LWordArray (lWordC

), 2)NextEnd FunctionPublic Function MD5 (smessage)M_lonbits (0) = clng (1)M_lonbits (1) = clng (3)M_lonbits (2) = clng (7)M_lonbits (3) = clng (15)M_lonbits (4) = clng (31)M_lonbits (5) = clng (63)M_lonbits (6) =

m_lonbits (bits_to_a_byte-1)Wordtohex = Wordtohex Right ("0" Hex (Lbyte), 2)NextEnd Function Public function MD5 (smessage)M_lonbits (0) = CLng (1)M_lonbits (1) = CLng (3)M_lonbits (2) = CLng (7)M_lonbits (3) = CLng (15)M_lonbits (4) = CLng (31)M_lonbits (5) =

Copy Code code as follows: Private Const Bits_to_a_byte = 8 Private Const Bytes_to_a_word = 4 Private Const Bits_to_a_word = 32 Private M_lonbits (30) Private M_l2power (30) M_lonbits (0) = CLng (1) M_lonbits (1) = CLng (3) M_lonbits (2) = CLng (7) M_lonbits (3) = CLng (15) M_lonbits (4) =

)), lbyteposition)Lbytecount = Lbytecount + 1Loop Lwordcount = lbytecount \ Bytes_to_a_wordLbyteposition = (Lbytecount Mod bytes_to_a_word) * Bits_to_a_byteLwordarray (Lwordcount) = Lwordarray (Lwordcount) Or lshift (h80, lbyteposition)Lwordarray (lNumberOfWords-2) = LShift (Lmessagelength, 3)Lwordarray (lNumberOfWords-1) = Rshift (lmessagelength, 29) Converttowordarray = LwordarrayEnd Function Private Function Wordtohex (lValue)Dim LbyteDim LcountFor lcount = 0 to 3Lbyte = Rshift (LValue, Lc

Encryption Private M_lonbits (30) Private M_l2power (30) Private K (63) Private Const Bits_to_a_byte = 8 Private Const Bytes_to_a_word = 4 Private Const Bits_to_a_word = 32 M_lonbits (0) = CLng (1) M_lonbits (1) = CLng (3) M_lonbits (2) = CLng (7) M_lonbits (3) = CLng (15) M_lonbits (4) =

is far lower than that of. net built-in functions. The following code is provided: Original ASP encryption code: Private Const BITS_TO_A_BYTE = 8Private Const BYTES_TO_A_WORD = 4Private Const BITS_TO_A_WORD = 32Private m_lOnBits (30)Private m_l2Power (30)M_lOnBits (0) = CLng (1)M_lOnBits (1) = CLng (3)M_lOnBits (2) = CLng (7)M_lOnBits (3) =

) = lWordArray (lWordCount) Or LShift (Asc (Mid (sMessage, lByteCount + 1, 1), lBytePosition)LByteCount = lByteCount + 1LoopLWordCount = lByteCount BYTES_TO_A_WORDLBytePosition = (lByteCount Mod BYTES_TO_A_WORD) * BITS_TO_A_BYTELWordArray (lWordCount) = lWordArray (lWordCount) Or LShift ( H80, lBytePosition)LWordArray (lNumberOfWords-2) = LShift (lMessageLength, 3)LWordArray (lNumberOfWords-1) = RShift (lMessageLength, 29)ConvertToWordArray = lWordArrayEnd FunctionPrivate Function WordToHex (lVa

)Lbytecount = Lbytecount + 1LoopLwordcount = lbytecount \ Bytes_to_a_wordLbyteposition = (Lbytecount Mod bytes_to_a_word) * Bits_to_a_byteLwordarray (Lwordcount) = Lwordarray (Lwordcount) Or lshift (h80, lbyteposition)Lwordarray (lNumberOfWords-2) = LShift (Lmessagelength, 3)Lwordarray (lNumberOfWords-1) = Rshift (lmessagelength, 29)Converttowordarray = LwordarrayEnd FunctionPrivate Function Wordtohex (lValue)Dim LbyteDim LcountFor lcount = 0 to 3Lbyte = Rshift (LValue, Lcount * bits_to_a_byte)

) Lwordarray (lNumberOfWords-2) = LShift (Lmessagelength, 3) Lwordarray (lNumberOfWords-1) = Rshift (lmessagelength, 29) Converttowordarray = Lwordarray End Function Private Function Wordtohex (lvalue) Dim Lbyte Dim Lcount For lcount = 0 to 3 Lbyte = Rshift (lvalue, Lcount * bits_to_a_byte) and m_lonbits (bits_to_a_byte-1) Wordtohex = Wordtohex Right ("0" Hex (Lbyte), 2) Next End Function Public Function MD5 (smessage) M_lonbits (0) = CLng (1)

=getcururlrequest.servervariables ("URL") If (request.querystringEndfunction 4.MD5 encryption Function Privateconstbits_to_a_byte=8 Privateconstbytes_to_a_word=4 Privateconstbits_to_a_word=32 Privatem_lonbits (30) Privatem_l2power (30) M_lonbits (0) =clng (1) M_lonbits (1) =clng (3) M_lonbits (2) =clng (7) M_lonbits (3) =cl